'Pong' Readme 

The program 'Pong' runs under initial orders 2, and can be viewed on long tank 5. It should show a ball 
bouncing around the CRT screen. On fast computers it is best to run in real time. 

'Pong' is comprised of three routines: a heading routine, an 'Index-Write' routine, and a master routine. 
The heading routine is not to be run, just loaded into the last 10 words of long tank 5 to show the word 
'Pong' in lit spots. The 'Index-Write' routine copies the data stored in memory locations 4 and 5 to the 
address given in memory location 6. It does this by modifying its own 7 th instruction to include the 
destination address. Watch locations 4-6 on long tank to see the data being passed into this routine. 

The 'Master' routine is a loop of 52 instructions, followed by 14 locations given over to its variables. The 
two most important variables are 'ball' and 'addr'. All the bits of 'ball' are except for a single 1 (in some 
position), 'addr' is a number between 160 and 180. The ball is drawn to the screen by writing 'ball' to the 
address in 'addr' (using the 'Index- Write' routine). The ranges of these variables allows a single spot of 
light to appear anywhere in the lower half of long tank 5. 

The algorithm works by using two variable to indicate the direction of the ball 'xdir', and 'ydir'. First a 
check is made that the ball is not about to go out of bounds, and if so the sign of one of these variables is 
reversed. Then the position of the ball is updated. The y component ('addr') is modified by adding 'ydir' to 
it (which is either +2 or -2, so represents either going up or down the screen). The x component (where the 
single '1' bit in 'ball' is) is left or right shifted depending on the sign of 'xdir' (moving the ball left or 
right). The ball is written to the address 'addr', and then the algorithm repeats. 

Actually, the program is a little more complicated than this, because it is necessary to blank out the old 
position of the ball. I used extra temporary variables 'ball2' and 'addr2' to hold the newly calculated 
position until all '0's has been written to the old position. To see how the program behaves without this 
feature, remove the second G56D instruction (the 46 th of the master routine). 

NB The first instruction is 'XF' which means 'do nothing'. This can be replaced with 'ZF' to stop the 
program before each pass around the loop (to slow it down, or to step through the program). 

I have included on the next two pages a program listing with comments, in the standard notation used in 

WWG*. 
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(a) Master Routine Listing 
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Set parameter 
Set M parameter 

Set N parameter 
Reset parameter 

IF ball is at right wall 
OR IF ball is at left wall 



THEN xdir = -xdir 
(bounce of a vertical wall) 

IF ball at bottom of long tank 5 



OR IF ball four rows from top of 
long tank 5 



THEN ydir = -ydir 
(bounce of a horizontal wall) 

Update y position 
(addr2 = addr+ydir) 

Update x position: 

IF ball is going right (xdir=-l) 



THEN shift ball right, store in ball2 
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Copy ball2 into address in addr2 
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using the Index-Write routine 
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Copy 0000. . . into address in addr 
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using the Index-Write routine 




44 


T 


6 F 


(e.g. blank out the old position) 
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(b) 


Table 


of 


routines 





Routine 



Location of 
First order 



Number of storage 
locations occupied 



Heading 


182 


Index-Write 


56 


Master 


66 



10 
10 
68 



ELSE shift ball left, store in ball2 



(c) Make-up of program tape 

space P K 
T 182 K 

Heading 

space P Z 
T 56 K 

Index-Write 

space P Z 



(e) Subroutines 
On Screen Heading 



S 799 F 
S 31 F 
S 1843 F 
S 49 D 
Z 823 D 

* 1585 D 
K 816 F 
S 817 D 
S 799 F 

* 1567 F 



01100000000111110001100011000111110 
01100000001100011001100111001100110 
01111110001100011001101011001101111 
01100011001100011001110011001100000 
01111110000111110001100011000111110 



When you write this starting from address 182 and then view 
Long tank 5 on the EDSAC screen the words appear to spell PONG: 



= 



1 = # 



Master 



E Z P F 

(d) Program tape 

[Pong] 
T182K 
[Heading] 

S7 9 9FS31FS184 3FS4 9DZ823D*15 85DK816FS817D 
S799F*1567F 
. .PZ 
T56K 

[ Index-Write] 

GKA3FT8@A6FLDA9@T7@A4DTDEFTD 
. .PZ 

[Master] 

GKT47KP53@T4 6KP5 8@TZXFTFA#NS6#N 
E6@G8@S8#NG11@TFS4#NT4#NTFAMS3M 
E16@G18@S4MG21@TFS2MT2MTFAMA2M 
T1MA4#NE32@TDA#NRDU2#NE3 6@TDA#N 
LDU2#NT4DA1MT6FA3 9@G5 6DTDT4DAM 
T6FA4 5@G5 6DTDA2#NT#NA1MUME@P8 5F 
PFP1FP8 0DP9FIFPFPFPFPDPFP1FPFPFRF 
EZPF 
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.#####. 



Index-Write Routine 
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Set parameter 
Plant Link 



Address the 'write' instruction 
with the location specified in 6F 

Copy data in 4D to that location 
Link 



This routine copies location 4-5 to the address specified by 
location 6. 



